(rmail-summary-delete-forward): Force the

argument to be a number, since we may be called with nil.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 4a7dd67b0829795364840722b1b08b46c2d983bc..6081062dde65bed2806658bea7594fc374973d8f 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -582,6 +582,7 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given.
 A prefix argument serves as a repeat count;
 a negative argument means to delete and move backward."
   (interactive "p")
+  (unless (numberp count) (setq count 1))
   (let (end del-msg
            (backward (< count 0)))
     (while (/= count 0)